Directorty Opus 5 - Magellan 2/Opus 5 - Magellan 2.iso/Extras/xpkdopus5/xpk.dopus

Text File | 1996-03-02 | 1KB | 2 lines

/* Optimized with RexxOpt 1.7 */
options results;signal on syntax;signal on ioerr;signal on error;parse arg dopusport modus addargs;if dopusport~="" then address value dopusport;lister query source;parse var RESULT handle .;if rc>0 then exit;lister query handle numselentries;entries=RESULT;if entries<1 then break;lister set handle busy 1;do j=1 TO entries;lister query handle path;selpath=RESULT;lister query handle firstsel;selentry=RESULT;lister query handle entry selentry stem fileinfo.;if fileinfo.type<1 then;do;lister select handle selentry off;lister set handle progress 100 selentry;address command "xpkdopus DIR" '"'selpath'"' "FILE" selentry modus addargs "LISTER" handle "REXXPORT" dopusport;end;else dopus request '"'selentry 'is not a file "' "Ok";lister query handle abort;if RESULT then signal error;lister clear handle progress;lister refresh handle;end;syntax:;ioerr:;error:;lister clear handle progress;lister set handle busy 0;lister query handle path;lister read handle '"'RESULT'"' force